note
	description: "Avion Mirage donde se instala el modulo MC72"
	author: "Agustin Orge Queiruga (LU85538) y Victoria Martinez de la Cruz (LU87620)"
	date: ""
	revision: ""

class
	MIRAGE

create
	make

feature {NONE} -- Initialization

	modulo: MC72

	make
			-- Run application.
		do
			create modulo
		end

feature

	atacar_objetivo (objetivo: STRING_8)
		local
			atacarflag: INTEGER_32
			intentos: INTEGER_32
			terminar: BOOLEAN
		do
			if (not terminar) then
				atacarflag := 0
				modulo.preparar_misil
				atacarflag := 1
				modulo.apuntar_misil (objetivo)
				modulo.lanzar_misil
			end
		rescue
			if (atacarflag = 0) then
				terminar := True
				retry
			end
			if (atacarflag = 1 and intentos < 5) then
				intentos := intentos + 1
				retry
			end
		end

end -- class MIRAGE
